home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 248 / 248.d81 / b.elevator music (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  6.4 KB  |  227 lines
  1. 15 print"[147]"chr$(142)"":poke53281,0:poke53280,0
  2. 17 :
  3. 18 :rem  load files
  4. 19 :
  5. 20 poke52,55:poke56,55
  6. 30 sys57812"el font",8,0:poke780,0:poke781,0:poke782,56:sys65493:poke53272,30
  7. 40 print"    [152] another knees[146] calhoon[146] [152]debacle"
  8. 50 sys57812"el spr",8,0:poke780,0:poke781,0:poke782,55:sys65493
  9. 60 sys57812"ss 1990.em",8,0:poke780,0:poke781,60:poke782,3:sys65493
  10. 70 sys57812"basic player.o",8,0:poke780,0:poke781,254:poke782,203:sys65493
  11. 80 sys57812"m.elevator",8,0:poke780,0:poke781,0:poke782,64:sys65493
  12. 90 sys57812"w.elevator",8,0:poke780,0:poke781,104:poke782,207:sys65493
  13. 100 poke53265,9:gosub1500:print"[147]":poke53281,0
  14. 110 open15,8,15,"r0:swat team=swat team":input#15,er:close15:ifer<>63then450
  15. 150 open3,8,3,"swat team,s,r"
  16. 160 input#3,sw:fori=1tosw
  17. 165 input#3,mv(i):mv$(i)=str$(mv(i))
  18. 170 input#3,sw$(i)
  19. 180 next:close3:goto450
  20. 187 :
  21. 188 :rem  subroutines
  22. 189 :
  23. 190 printtab(18)"[158][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
  24. 200 [153][163]18)"(NULL) f1 clrsurrender      sys(NULL)
  25. 210 printtab(18)"[221] f3 [156]take back move [158][221]
  26. 220 [153][163]18)"(NULL) f5 clrsee swat team  sys(NULL)
  27. 230 printtab(18)"[221] f7 [156]go to loadstar [158][221]
  28. 240 [153][163]18)"(NULL) s  clrtoggle muzak   sys(NULL)
  29. 245 printtab(18)"[221] h  [156]help screens   [158][221]
  30. 250 [153][163]18)"-lenlenlenlenlenlenlenlenlen=lenlenlenlenlenlenlenlenlen<
  31. 260 printtab(18)"[221][156] floors  [158][221]  [156]moves  [158][221]
  32. 270 [153][163]18)"(NULL)    cont0sys    (NULL)    cont0sys    (NULL)
  33. 280 printtab(18)"[202][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][203]
  34. 290 [142]
  35. 300 [153]"loadclr(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$"
  36. 310 [129]i[178]0[164]22:[153]"(NULL)"[163]38)"(NULL)":[130]
  37. 320 [153]"mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)"
  38. 330 [142]
  39. 332 [141]300
  40. 334 [153]"for   s w a t    t e a m s t e r s"
  41. 335 [129]i[178]1[164]sw[169]2
  42. 336 [153][163]1)"open"mv$(i)[163]5)"cont"sw$(i);
  43. 337 [153][163]19)"open"mv$(i[170]1)[163]23)"cont"sw$(i[170]1)
  44. 338 [130]
  45. 339 [151]214,22:[153]:[153][163]2)"syspress any key to resume the assault"
  46. 340 [151]198,0
  47. 341 [161]a$:[139]a$[178]""[167]341
  48. 342 [142]
  49. 350 [151]198,0
  50. 355 [161]a$:[139]a$[178]""[167]355
  51. 360 [142]
  52. 370 [151]214,22:[153]:[153][163]20)" surrender? (y/n)on"
  53. 380 [161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167]380
  54. 385 [153][163]20)"                 on"
  55. 390 [139]k$[178]"n"[167][142]
  56. 400 f1[178]1:[142]
  57. 410 [151]214,22:[153]:[153][163]20)"to loadstar (y/n) on"
  58. 420 [161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167]420
  59. 425 [153][163]20)"                 on"
  60. 430 [139]k$[178]"n"[167][142]
  61. 440 f7[178]1:[142]
  62. 447 :
  63. 448 :[143]  setup
  64. 449 :
  65. 450 [153][199](142):[151]53272,30
  66. 460 [134]d%(11,5)
  67. 470 v[178]53248:[151]2040,220:[151]2041,221:[151]v[170]39,1:[151]v[170]40,1
  68. 480 [151]2042,220:[151]2043,221:[151]v[170]41,12:[151]v[170]42,12
  69. 490 [151]v[170]29,0:[151]v[170]27,15
  70. 500 tp$[178]"(NULL)lenlenlen=lenlenlen=lenlenlen=lenlenlenright$"
  71. 510 m1$[178]"(NULL)   (NULL)   (NULL)   (NULL)   (NULL)"
  72. 520 m2$[178]"-lenlenlen(NULL)lenlenlen(NULL)lenlenlen(NULL)lenlenlen<"
  73. 530 bt$[178]"mid$lenlenlen>lenlenlen>lenlenlen>lenlenlen(NULL)"
  74. 540 [129]i[178]0[164]3:[135]b$(i):[130]
  75. 550 [131]"fn then","fn then","fn then","clrfn then"
  76. 560 n%(1)[178]5:n%(2)[178]2:n%(3)[178]6:n%(4)[178]4
  77. 570 [151]53265,9:[153]"loadprint#"tp$:sc[178]0:g[178]0:sn[178]1
  78. 580 [129]i[178]0[164]9:[153]m1$:[153]m2$:[130]
  79. 590 [153]m1$:[153]bt$
  80. 600 [153]""
  81. 640 [129]i[178]0[164]3:[129]j[178]0[164]3
  82. 650 [151]214,15[170]2[172]j:[153]
  83. 660 [153][163]1[170]i[172]4)b$((j[170]i)[175]3)
  84. 670 [130]:[130]
  85. 680 [153]"def"
  86. 690 [153][163]17)"(NULL)lenright$right$ (NULL)lenright$right$(NULL)(NULL)lenright$(NULL)=right$(NULL)lenright$(NULL)lenright$"
  87. 700 [153][163]17)"-< (NULL) -< (NULL)(NULL)-len< (NULL) (NULL) (NULL)-=(NULL)"
  88. 710 [153][163]17)"mid$len(NULL)mid$(NULL)mid$len(NULL)mid$(NULL)> > > mid$len(NULL)>mid$<"
  89. 720 [153][163]21)"(NULL)right$(NULL)right$right$ (NULL)(NULL)lenright$=(NULL)lenright$
  90. 730 printtab(21)"[221][221][221][221][221] [221][202][195][201][221][221]
  91. 740 [153][163]21)"(NULL)mid$(NULL)(NULL)(NULL) (NULL)  (NULL)(NULL)(NULL)
  92. 750 printtab(21)"[203]  [202][202][195][203][202][195][203][177][202][195][203]
  93. 760 [153][163]19)"help openfenderwait tucker"
  94. 765 [153][163]18)"defregain the penthouse"
  95. 770 [141]190
  96. 780 [129]i[178]0[164]10:[129]j[178]0[164]3:d%(i,j)[178]0:[130]:[130]:[143] clear grid
  97. 790 [129]i[178]0[164]3:[129]j[178]0[164]3:d%(i,3[171]j)[178]((2[171](j[170]i))[175]3)[170]1:[130]:[130]: [143]  set up
  98. 800 [151]53265,27:[158]52222,16384
  99. 807 :
  100. 808 :[143]  loop
  101. 809 :
  102. 810 x[178]0:y[178]0:f1[178]0:f3[178]1:f7[178]0:mv(sw[170]1)[178]0
  103. 820 [151]v,27[170]x[172]32:[151]v[170]1,224[171]y[172]16:[151]v[170]2,36[170]x[172]32:[151]v[170]3,224[171]y[172]16
  104. 840 e[178]0:[129]j[178]0[164]3:[139]d%(y,j)[167]e[178]e[170]1
  105. 850 [130]
  106. 860 [139]y[170]e[177]10[167]960
  107. 870 [139]d%(y[170]e,x)[167][151]v[170]21,3:[137]970
  108. 880 [129]i[178]0[164]3:[139]d%(y[170]e,i)[178]d%(y,x)[167]i[178]3:[130]:[137]960
  109. 890 [130]
  110. 900 [139]e[179][177]1[167]940
  111. 910 f[178]0:[129]i[178]10[164]y[170]1[169][171]1:[129]j[178]0[164]3:[139]d%(i,j)[178]d%(y,x)[167]f[178]1
  112. 920 [130]:[130]
  113. 930 [139]f[178]0[167]960
  114. 940 [151]v[170]4,[194](v):[151]v[170]5,[194](v[170]1)[171]e[172]16:[151]v[170]6,[194](v)[170]9:[151]v[170]7,[194](v[170]3)[171]e[172]16
  115. 950 [151]v[170]21,15:[151]v[170]41,n%(d%(y,x)):[151]v[170]42,n%(d%(y,x)):[137]970
  116. 960 [151]v[170]21,3
  117. 970 [151]198,0:[153]""
  118. 980 [161]a$:[139]sn[167][139][194](2)[178]255[167][158]52222,16384
  119. 990 [139]a$[178]""[167]980
  120. 1000 [139]a$[178]"s"[167]sn[178]1[171]sn:[139]sn[167][158]52222,16384
  121. 1010 [139]sn[178]0[167][158]52225
  122. 1015 [139]a$[178]"f"[167]ft[178]1[171]ft:[151]53272,30[171]9[172]ft:[137]980
  123. 1020 [139]a$[178]"let"[167][141]410:[139]f7[167]1450:[143] to loadstar
  124. 1030 [139]a$[178]"input"[167][141]370:[139]f1[167]1260:[143] surrender
  125. 1040 [139]a$[178]"read"[167][151]v[170]21,0:[158]828,1:[141]332:[158]831,1:[137]820:[143] f5 swat team
  126. 1050 [139]a$[179][177]"h"[167]1070:[143]  help
  127. 1060 [151]v[170]21,0:[158]828,1:[158]831,2:[141]350:[158]831,3:[141]350:[158]831,1:[137]820
  128. 1070 [139]a$[178][199](13)[175][194](v[170]21)[178]15[167]1160
  129. 1080 [139]a$[179][177]"dim"[167]1110:[143] take back move
  130. 1090 [139]f3[167]1110
  131. 1095 mv(sw[170]1)[178]mv(sw[170]1)[171]1
  132. 1100 [158]831,1:d%(yy,xx)[178]d%(yy[170]ee,xx):d%(yy[170]ee,xx)[178]0:x[178]xx:y[178]yy:f3[178]1:sc[178]ss:[137]820
  133. 1110 [139]a$[178]""[167]y[178]y[171]1:[139]y[179]0[167]y[178]10
  134. 1120 [139]a$[178]"on"[167]y[178]y[170]1:[139]y[177]10[167]y[178]0
  135. 1130 [139]a$[178]""[167]x[178]x[170]1:[139]x[177]3[167]x[178]0
  136. 1140 [139]a$[178]"cmd"[167]x[178]x[171]1:[139]x[179]0[167]x[178]3
  137. 1150 [137]820
  138. 1157 :
  139. 1158 :[143]  make move
  140. 1159 :
  141. 1160 [158]828,1:[151]214,21[171]2[172]y:[153]:[153][163]1[170]x[172]4)"   "
  142. 1165 mv(sw[170]1)[178]mv(sw[170]1)[170]1:mv$(sw[170]1)[178][196](mv(sw[170]1))
  143. 1170 [151]214,21[171]2[172]y[171]2[172]e:[153]:[153][163]1[170]x[172]4)b$(d%(y,x)[171]1):yy[178]y:xx[178]x:ee[178]e
  144. 1180 d%(y[170]e,x)[178]d%(y,x):d%(y,x)[178]0
  145. 1190 [151]v[170]21,0:ss[178]sc:f3[178]0
  146. 1200 sc[178]0:[129]i[178]0[164]3:[129]j[178]0[164]3
  147. 1210 [139][194](1106[170]i[172]4[170]j[172]80)[179][177]32[167]sc[178]sc[170]1
  148. 1220 [130]:[130]
  149. 1225 sg[178]sc[172].25:sg$[178][200]([196](sg),5)
  150. 1230 [151]214,20:[153]:[153][163]19)"         sys(NULL)         on"
  151. 1235 [153][163]23[171][195](sg$)[173]2)"cont"sg$;[163]32[170](mv(sw[170]1)[177]9))mv$(sw[170]1)
  152. 1240 [139]sc[178]16[175]sw[179]30[167][151]v[170]21,0:[137]1270
  153. 1250 [137]820
  154. 1260 [151]v[170]21,0:[158]52225:[139]sc[179]16[167]570
  155. 1270 [151]214,12:[153]
  156. 1280 [153][163]19)"sys congratulations!  "
  157. 1285 [153][163]19)"  you recaptured   "
  158. 1290 [153][163]19)"  the penthouse!   "
  159. 1300 [153][163]19)"                   "
  160. 1320 [153][163]19)"  enter your name  "
  161. 1330 [153][163]20)"                  on"
  162. 1340 [153][163]22);:[141]1830
  163. 1350 sw[178]sw[170]1:sw$(sw)[178]q9$
  164. 1360 [159]15,8,15,"i0"
  165. 1365 [152]15,"s0:swat team":[160]15
  166. 1370 [159]3,8,3,"swat team,s,w"
  167. 1380 [152]3,sw
  168. 1390 [129]i[178]1[164]sw
  169. 1395 [152]3,mv$(i)
  170. 1400 [152]3,sw$(i)
  171. 1410 [130]:[160]3:[139]f5[167]f5[178]0:[137]820
  172. 1420 [151]214,22:[153]:[153][163]20)"try again? (y/n)"
  173. 1430 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]1430
  174. 1440 [139]a$[178]"y"[167]570
  175. 1450 [151]v[170]21,0:[151]53272,21:[158]52225
  176. 1455 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  177. 1460 [139]er[179][177]63[167][153]"load":[151]53272,21:[128]
  178. 1470 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  179. 1480 [153]"run"
  180. 1490 [151]631,13:[151]632,13:[151]198,2:[128]
  181. 1500 [143]
  182. 1510 [141]300
  183. 1520 [153]"fore l e v a t o r    m u s i c"
  184. 1530 [153]"conttry to win back the tower penthouse"
  185. 1540 [153]"by moving the elevators from the
  186. 1550 print"bottom four floors to the top four."
  187. 1560 print"there are three rules.
  188. 1570 [153]"print#(1print#) openthe number of floors an elevator"
  189. 1580 [153]"can move is equal to the number of"
  190. 1590 [153]"elevators on the floor it's on."
  191. 1600 [153]"print#(2print#) openan elevator cannot move to a"
  192. 1610 [153]"floor that has a similarly colored"
  193. 1615 [153]"elevator already on it."
  194. 1620 [153]"print#(3print#) openan elevator cannot move up a"
  195. 1630 [153]"single floor if it is the highest"
  196. 1640 [153]"elevator of its color in the tower."
  197. 1650 [153][163]9)"syspress any key for more"
  198. 1670 [158]828,2
  199. 1680 [141]300
  200. 1690 [153]"fore l e v a t o r    m u s i c"
  201. 1692 [153]"contthe elevator "[199](34)"cursor"[199](34)" is white.  any
  202. 1694 print"legal move is indicated by a colored"
  203. 1696 print"'shadow' elevator.
  204. 1700 [153]"contuse the crsr keys contto move the
  205. 1710 print"indicator to the elevator you want
  206. 1720 [153]"to take and press returncont to make
  207. 1730 print"your move.
  208. 1740 [153]"press f1cont when there are no more moves
  209. 1750 print"left, or if you see your situation
  210. 1760 [153]"is hopeless."
  211. 1770 [153]"press fcont to change the font."
  212. 1780 [151]214,22:[153]:[153][163]2)"syspress any key to resume the assault"
  213. 1790 [158]828,3
  214. 1800 [142]
  215. 1810 [137]1810
  216. 1830 q9$[178]"":[151]198,0
  217. 1840 [161]a$
  218. 1850 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]1840
  219. 1860 [139]a$[178][199](13)[167][153]" ":[142]
  220. 1870 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]1920
  221. 1880 [139][195](q9$)[177][178]13[167]1840
  222. 1890 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]1840
  223. 1900 q9$[178]q9$[170]a$
  224. 1910 [153]""a$;:[137]1840
  225. 1920 [153]" cmdcmd";:[137]1840
  226. 10000 [159]15,8,15,"s0:elevator music":[160]15:[148]"elevator music",8:[128]
  227.